Son i■lemi geri almak
Sevgili WindowsÆunuz programlar²n²zda kullanabilmeniz iτin gerekli olan her■eyi ÷nⁿnⁿze sunmu■tur. ╓rne≡in
geτen ay verdi≡imiz tekniklerden sonra bir text edit÷rⁿ yapmaya karar verdiniz. Ama her edit÷rde olan bir
÷zelli≡i siz kullananm²yorsunuz; "Geri Alma ▌■lemi". Ya da edit÷rⁿnⁿz yapt²≡²n²z her hareketten ÷nce text kutusundaki yaz²lar²n²z² bir k÷■ede sakl²yor.
Dedi≡imiz gibi WINDOWS, size sundu≡u bir API fonksiyonuyla sizi bu zahmetten kurtar²yor.
▐ekildeki gibi bir form yaratt²ktan sonra a■a≡²daki k²sac²k kodu girin ve sonuca bir bak²n. Program² τal²■t²rd²≡²n²zda her zaman bir ÷nce yapt²≡²n²z i■lemin kaydedildi≡ini ve butona bas²ld²≡²nda text kutucu≡u ⁿzerine geri geldi≡i g÷receksiniz.
GERIAL.BAS adl² formunuzdan ayr² bir modⁿl yarat²p ilk 4 sat²r² bunun iτine kaydedin.
Declare Function SendMessage Lib "User" (ByVal hWnd As Integer, ByVal wMsg As Integer, ByVal
wParam As Integer, lParam As Any) As Long
Global Const WM_USER = &H400
Global Const EM_UNDO = WM_USER + 23
æ▐imdi formumuza geτebiliriz...
Private Sub Command1_Click()
'Text kutusundaki metin de≡i■meden ÷nce her seferinde WINDOWS taraf²ndan otomatik æolarak
saklan²r.
UndoResult = SendMessage(Text1.hWnd, EM_UNDO, 0, 0) æAPI fonksiyonunu τa≡²r.
'E≡er UndoResult = -1 ise bir hata olu■mu■ demektir.
End Sub